function z = fintA(S,alpha,psi,delta)

z = psi.^(1/(1-alpha)).*((1-psi.^(-delta))./(1-psi.^(1/(1-alpha)-delta))).*((1-psi.^((1/(1-alpha)-delta).*S))./(1-psi.^(-delta.*S)));

end